home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / propmgr2.arc / WSFILE1.ACG < prev   
Encoding:
Text File  |  1979-12-31  |  3.4 KB  |  127 lines
  1. * DATE 08/27/84  12:53
  2. * wsfile1.cmd
  3. ERAS
  4. ? 'This Module will make a special MailMerge file for WordStar'
  5. ?
  6. ? 'It is designed to write a write a limited number of records'
  7. ? 'and not create a document file. If you want all records and'
  8. ? 'a document file, run option 5.'
  9. ?
  10. ? ' Do you wish to continue (Y/N) ? '
  11. SET CONSOLE OFF
  12. WAIT TO command
  13. SET CONSOLE ON
  14. IF command = 'Y' .OR. command = 'y'
  15.  STOR t TO continue
  16. ELSE
  17.  STOR f TO continue
  18. ENDI
  19. GO TOP
  20. DO WHIL continue
  21.  STOR 0 TO fnumber
  22.  STOR 1 TO counter
  23.  ERAS
  24.  ACCE 'Enter Name of the WordStar-MailMerge file  ' TO file:dat
  25.  STOR !(file:dat) TO file:dat
  26.  STOR $(file:dat,1,8) TO file:dat
  27.  STOR file:dat+'.DOC'  TO file:doc
  28.  STOR file:dat+'.DAT'  TO file:dat
  29. * get a starting  and ending points in file
  30.  STOR 'A' TO stletter
  31.  @ 05,12 SAY 'Letter of alphabet at which to start report'
  32.  @ 05,57 GET stletter PICTURE '!'
  33.  READ
  34.  @ 07,12 SAY 'Total number of records to write'
  35.  @ 07,57 GET fnumber PICTURE '##'
  36.  READ
  37. * goto starting point or next if no find
  38.  FIND &stletter
  39.  DO WHIL # = 0
  40.   STOR 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ' TO ALPHABET
  41.   STOR @(stletter,ALPHABET) + 1 TO NEXL
  42.   STOR $(ALPHABET,NEXL,1) TO stletter
  43.   FIND &stletter
  44.   RELE alphabet, nexl
  45.  ENDD
  46.  SET CONSOLE ON
  47.  @ 15,10 SAY  ' Creating WordStar-MailMerge Data file:  '+file:dat
  48.  ?
  49.  ?
  50.  ?? 'Writing record #     '
  51.  SET CONSOLE OFF
  52.  SET ALTERNATE TO &file:dat
  53.  SET ALTERNATE ON
  54.  DO WHIL (fnumber >0 .AND.(.NOT. EOF))
  55.   IF send <> 'Y'
  56.    STOR ' ' TO titleline
  57.    STOR ' ' TO coname1
  58.    STOR ' ' TO coname2
  59.    STOR CHR(34)+TRIM(address)+CHR(34) TO street
  60.    STOR CHR(34)+TRIM(city)+CHR(34) TO cityto
  61.    STOR st TO stto
  62.    STOR zip TO zipto
  63.    IF apt = ' '
  64.     STOR ' ' TO room
  65.    ELSE
  66.     STOR CHR(34)+TRIM(apt)+CHR(34) TO room
  67.    ENDI
  68.   ELSE
  69.    STOR CHR(34)+TRIM(caddress)+CHR(34) TO street
  70.    STOR CHR(34)+TRIM(ccity)+CHR(34) TO cityto
  71.    STOR cst TO stto
  72.    STOR czip TO zipto
  73.    IF title = ' '
  74.     STOR ' ' TO titleline
  75.    ELSE
  76.     STOR CHR(34)+TRIM(title)+CHR(34) TO titleline
  77.    ENDI
  78.    IF company1 = ' '
  79.     STOR ' ' TO coname1
  80.    ELSE
  81.     STOR CHR(34)+TRIM(company1)+CHR(34) TO coname1
  82.    ENDI
  83.    IF company2 = ' '
  84.     STOR ' ' TO coname2
  85.    ELSE
  86.     STOR CHR(34)+TRIM(company2)+CHR(34) TO coname2
  87.    ENDI
  88.    IF suite = ' '
  89.     STOR ' ' TO room
  90.    ELSE
  91.     STOR CHR(34)+TRIM(suite)+CHR(34) TO room
  92.    ENDI
  93.   ENDI send letter to office
  94.   ?
  95.   ?? CHR(34)+TRIM(lastname)+CHR(34) +','
  96.   ?? CHR(34)+TRIM(fname)+CHR(34) +','
  97.   ?? CHR(34)+TRIM(mr)+CHR(34) +','
  98.   ?? CHR(34)+TRIM(dear)+CHR(34) +','
  99.   ?? titleline +','
  100.   ?? coname1 +','
  101.   ?? coname2 +','
  102.   ?? street +','
  103.   ?? room +','
  104.   ?? cityto +','
  105.   ?? stto +','
  106.   ?? zipto +','
  107.   SKIP
  108.   SET CONSOLE ON
  109.   SET ALTERNATE OFF
  110.   SET CONSOLE ON
  111.   ?? CHR(8) + CHR(8)+CHR(8)+CHR(8)+CHR(8)+CHR(8)+STR(COUNTER,5)
  112.   SET CONSOLE OFF
  113.   SET ALTERNATE ON
  114.   STOR COUNTER + 1 TO COUNTER
  115.   STOR fnumber-1 TO fnumber
  116.  ENDD WHILE not eof
  117.  STOR f TO continue
  118. ENDD continue
  119. SET ALTERNATE OFF
  120. SET CONSOLE ON
  121. RELE file:dat,file:doc,continue,fnumber,counter
  122. STOR '?' TO command
  123. STOR ' ' TO printer
  124. STOR ' ' TO disk
  125. STOR '            ' TO filename
  126. STOR t TO more
  127.